Dim newEmail As Object

Set outlook = CreateObject ("Outlook.Application")
Set newEmail = outlook.CreateItem(0)

With new Email

.To = Sheet1.Range ("C3").Text
.CC = Sheet1.Range ("C4").Text
.BCC = Sheet1.Range ("C5").Text
.Subject = Sheet1.Range("C6").Text

'.Body = "Hi."
.Display

Dim xInspect As Object
Dim pageEditor As Object

Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor

Sheet1.Range ("A8:D14").Copy
'Dim rng as range    set rng = selection

pageEditor.Application.Selection.start =  Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.Paste

Set pageEditor = Nothing
Set xInspect = Nothing
End with

Set newEmail = Nothing
Set outlook = Nothing
End Sub